COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PAFD"
C00005 ENDMK
C⊗;
BEGIN "PAFD"
INTEGER ARRAY BLOCK[0:5*1024];
INTEGER ARRAY PNT[0:2];
INTEGER JOB,I,J,T,LINE;
STRING ACCT,ANS;

LINE←PTYGET;
PRINT("ACCT:"); ACCT←INCHWL;
PTOSTR(LINE,"L "&ACCT&'15&'12);
ANS←"   ";
DO
   BEGIN
   T←PTCHRW(LINE);
   OUTSTR(T);
   ANS←ANS&T;
   END
UNTIL ANS[∞ TO ∞]="="∨EQU(ANS[∞-2 TO ∞],'15&'12&".");
IF ANS[∞ TO ∞]≠"=" THEN PRINT("none at all") ELSE
   BEGIN
   WHILE ANS[1 TO 4]≠"Job " DO ANS←ANS[2 TO ∞];
   ANS←ANS[5 TO ∞]; JOB←INTSCAN(ANS,T);

   FOR J←0 STEP 1 UNTIL 0 DO
      BEGIN
      PNT[0]←JOB;
      PNT[1]←((-1024) ASH 18) LOR (J*1024);
      PNT[2]←LOCATION(BLOCK[J*1024]);
      CALL(LOCATION(PNT[0]),"JOBRD");
      END;

   FOR I←0 STEP 1 UNTIL 253 DO
      WHILE (BLOCK[I] LAND '770000000000)=0 ∧ BLOCK[I]≠0 DO BLOCK[I]←BLOCK[I] LSH 6;

   PRINT(CV6STR(BLOCK[237]),'15&'12);
   IF BLOCK[237]≠BLOCK[253] THEN PRINT(" or ",CV6STR(BLOCK[253]),'15&'12&'12);

   IF FALSE THEN
   FOR I←0 STEP 1 UNTIL 5*1024-1 DO
      BEGIN
      STRING Q;
      IF BLOCK[I]≠0 THEN
	BEGIN
	Q←CV6STR(BLOCK[I]);
	IF EQU(Q,"PASSWD") THEN PRINT(" →",I,"← ");
	FOR J←1 STEP 1 UNTIL LENGTH(Q) DO IF ((T←Q[J TO J])>" "∧T<"A")∨T>"Z"
           THEN Q←"";
	IF LENGTH(Q)>2 THEN PRINT(Q,",");
	END;
      END;
   END;
PTYREL(LINE);
END "PAFD";